home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 6 / FM Towns Free Software Collection 6.iso / data / dora102f / dorahelp.plp < prev    next >
Text File  |  1993-07-08  |  1KB  |  37 lines
  1. %CloseMEMO{[memono]
  2.     case    (@mcheck!=memono,
  3.         {Yes},{CloseAllMemo;mopen(memono);mclose(3)},
  4.         {No},{mclose(3)})};
  5. /*    DORAの説明を表示する    */
  6. %NOTE    {[file];
  7.     case    (@mlast==9,{Yes},{select ({メモ９を削除してもいいですか？},
  8.             Wtime4,,
  9.             {  は  い  },{NOTE1(file)},
  10.             {  いいえ  },
  11.             )},
  12.         {No},{NOTE1(file)}
  13.         )};
  14. %NOTE1    {[file];var    MEMO    [1];
  15.     case    (@mlast==9,{Yes},{CloseAllMemo;mclear(MEMO)},
  16.         {No},{MEMO:=@mlast+1;CloseAllMemo;madd(MEMO,{\n});
  17.         mclear(MEMO)});
  18.     case    (@filechk(CDIR2|{DORA}|VL|{.}|file),
  19.         {Yes},{mread(CDIR2|{DORA}|VL|{.}|file,MEMO)});
  20.     mopen(MEMO,0,21,639,459,{r});
  21.     loop    ({footnote({終了},{b});waitx    ();
  22.         case    (@xtype,
  23.             101,{CloseMEMO(MEMO);im({No})},
  24.             201,{CloseMEMO(MEMO);im({No})},
  25.             ,{im({Yes})}
  26.             )})};
  27. /*    表示ファイルの選択    */
  28. %NOTEsel{loop    ({footnote({表示するファイルを選んでください});
  29.         SNDMSG({erande_f.snd});
  30.         select    ({表示するファイルを選んでください},
  31.             Wtime4,{im({No})},
  32.             {バージョンアップの概要},{NOTE({VUP});im({Yes})},
  33.             { ドキュメントファイル },{NOTE({DOC});im({Yes})},
  34.             {   オンラインヘルプ   },{NOTE({HLP});im({Yes})},
  35.             {       終    了       },{im({No})}
  36.             )})};
  37. NOTEsel;